.BALLY 500
.BY BOB HENSEL

   1 .BALLY 500
   2 .BY BOB HENSEL
   5 :return ;clear ;A=0;B=0;P=0
   6 X=0;Y=10;Z=-10
   7 NT=1;S=0;T=0
   8 BC=126;FC=249
   9 gosub 4000;box 0,0,50,80,1
  10 X=X+KN(4)div 20
  20 Y=Y+KN(2)div 20
  25 Z=Z+KN(1)div 20
  30 T=T+1;S=S+1
 100 box X,-39,50,8,1
 105 box X,-36,2,2,3
 110 if P>0box X,-39,6,8,3;P=P-1
 190 if A=0box Y,-8,2,4,3
 200 if B=0box Z,-16,3,4,3
 242 if T<Lgoto 299
 245 C=1;if X>0C=-1
 247 gosub 1800+100mul rnd (10)
 249 goto 299
 299 if T-L=0T=0
 300 CY=-40;CX=-77;print 
 301 CX=-70;CY=40;print #1,S
 302 if A>0if B>0goto 3000
 305 if A>0goto 380
 310 if PX(Y,0)=1gosub 1000
 350 box Y,0,2,4,3
 380 if B>0goto 10
 390 if PX(Z,-8)=1gosub 1050
 400 box Z,-8,3,4,3
 700 goto 10
1000 CX=Y;CY=0;print "*",
1005 A=S
1010 goto 1060
1050 CX=Z;CY=-8;print "*",
1055 B=S
1060 NT=10;MU=67;MU=67;MU=67;MU=67;NT=1;return 
1900 .TRUCK
1905 C=Cmul 12
1907 box X+C,-32,5,5,3
1910 box X+C+4,-32,1,2,3
1920 box X+C-4,-32,1,2,3
2000 .CAR
2002 if ABS(C)>1goto 2010
2005 C=Cmul 12
2010 box X+C,-39,5,8,3
2020 box X+C+4,-37,1,2,3
2030 box X+C-4,-37,1,2,3
2040 box X+C+4,-41,1,2,3
2050 box X+C-4,-41,1,2,3
2060 return 
2100 .HOUSE
2105 C=Cmul 45
2110 box X+C,-38,12,10,3
2120 box X+C,-32,8,2,3
2130 box X+C,-36,16,2,1
2140 box X+C-2,-39,2,2,3
2150 box X+C+2,-40,2,4,3
2160 return 
2200 .TREE
2205 C=Cmul 40
2210 box X+C,-28,2,2,3
2220 box X+C,-30,4,2,3
2230 box X+C,-32,6,2,3
2240 box X+C,-34,8,2,3
2250 box X+C,-36,10,2,3
2260 box X+C,-40,2,6,3
2270 return 
2300 .SIGN
2303 if P>0return 
2305 C=Cmul 50
2320 box X+C,-29,12,12,3
2325 box X+C,-29,8,8,3
2330 CX=X+C;CY=-29;print "P",
2335 line CX-9,CY-4,4;line CX-3,CY+2,1
2336 P=15
2340 box X+C,-39,2,8,3
2350 return 
2400 .LOG
2410 box X-3,-38,24,5,2
2415 box X-10,-41,2,4,2;box X+3,-41,2,4,2
2420 return 
2500 .CRASH
2510 box X+8,-28,10,4,2
2520 gosub 1900
2530 return 
2600 C=-1mul C;goto 1900
2700 C=-1mul C;goto 2000
2800 return 
3000 .END
3005 CY=-40;CX=-23;print "GAME OVER";for K=1to 1000;next K
3010 clear ;CY=24;print "          SCORE";print 
3020 print "    PLAYER 1  PLAYER 2
3030 print 
3040 print B,"   ",A
3050 STOP
4000 .TITLE
4010 CY=0;print "    B A L L Y   5 0 0";CY=-8;CX=-6;print "BY
4020 print "        BOB HENSEL
4025 print 
4030 input "       SKILL LEVEL="L;clear ;return 

.STANDBY for INSTRUCTIONS

.BALLY 500 -BOB HENSEL
.KN(1) to MOVE BIG CAR
.  LEFT OR RIGHT
.KN(2) to MOVE SMALL
.  CAR LEFT OR RIGHT
.KN(4) to MOVE ROAD
.WATCH OUT for HAZARDS!
.SKILL LV 3 to 15
.to START PUSH KEY 1
:return ;K=KP;goto 1
